home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / UTIL / Alpha 6.5.sit / Tcl / UserCode / listFuncs.tcl < prev    next >
Text File  |  1996-08-15  |  3KB  |  96 lines
  1. # FILE: listFuncs.tcl
  2. #
  3. # LAST UPDATE: 01/07/93 7:11:44 AM
  4. #
  5. # This file contains the following TCL procedure(s):
  6. #
  7. #     listFuncs -- returns a list of functions in the current window
  8. #
  9. #    Place cursor near the front of a language file (TCL or C) and
  10. #    execute it.
  11.  
  12. #    To use, simply source this file place it in the a folder with the
  13. #    name $HOME:Tcl:Usercode: and invoke it implicitly via the "unknown proc".
  14. #
  15. # SEE ALSO unknown.tcl
  16.  
  17. # COPYRIGHT:
  18. #
  19. #    Copyright ｩ 1992,1993 by David C. Black
  20. #    All rights reserved.
  21. #
  22. #    Redistribution and use in source and binary forms are permitted
  23. #    provided that the above copyright notice and this paragraph are
  24. #    duplicated in all such forms and that any documentation,
  25. #    advertising materials, and other materials related to such
  26. #    distribution and use acknowledge that the software was developed
  27. #    by David C. Black.
  28. #
  29. #    THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
  30. #    IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  31. #    WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  32. #
  33. ################################################################################
  34.  
  35. # AUTHOR
  36. #
  37. #    David C. Black
  38. #    Internet: black@mpd.tandem.com (preferred)
  39. #    GEnie:    D.C.Black
  40. #    USnail:   6217 John Chisum Lane, Austin, TX 78749
  41. #
  42. ################################################################################
  43.  
  44. # HISTORY
  45. #                  
  46. # modified who rev reason
  47. # -------- --- --- ------
  48. # 01/06/93 DCB 1.0 Original
  49.  
  50. # DESCRIPTION:
  51. # 
  52. #    listFuncs extracts a list of functions and inserts it
  53. #    (or replaces any current selection) in the current window.
  54. #    The extracted list is left selected.  This may then be used
  55. #    for documentation either in the current file or cut/pasted
  56. #    to elsewhere.  Also useful in conjunction with the 'canon'
  57. #    procedure.
  58. # 
  59. # USE:
  60. # 
  61. #    Simple invoke without arguments.
  62.  
  63. proc listFuncs {} {
  64.     global funcExpr
  65.     global funcPar
  66.     set patt $funcExpr
  67.     set funcExtr "¥¥$funcPar"
  68.     set listFuncs {}
  69.     set done 0
  70.     set pos 0
  71.     set max [maxPos]
  72.     while {!$done} {
  73.         set fp [search -f 1 -r 1 -i 0 -m 0 -n $patt $pos]
  74.         if {[llength $fp] == 2} {
  75.             set s [lindex $fp 0]
  76.             set e [lindex $fp 1]
  77.             set fn [getText $s [expr {$e}]]
  78.             regsub $patt $fn $funcExtr fn
  79.             lappend listFuncs $fn
  80.             set pos [nextLineStart $e]
  81.         } else {
  82.             set done 1
  83.             break
  84.         }
  85.     }
  86.     lappend listFuncs {}
  87.     set text [join $listFuncs "¥r"]
  88.     replaceText [getPos] [selEnd] $text
  89.     goto [expr {[getPos] + [string length $text]}]
  90.     markHilite
  91. }
  92. #endproc listFuncs.tcl
  93.  
  94. ################################################################################
  95.  
  96.